lisp/vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 38de5fb6a628c14c2eb744ec0be6ac364e242b6d..f33faf06f8695be638bf7b9630ac834baf0fe7ea 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2010-03-19  Juanma Barranquero  <lekktu@gmail.com>
+
+       * vc-dispatcher.el (vc-do-command): Remove reference to `vc-path'.
+
 2010-03-19  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-hooks.el (vc-path): Remove variable and obsolete declaration.

diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 8e6f5d5a1becfed4fadad728a73fbe2b913ac938..721bbb38fe5e2cfc717be59132f987a55bc08f26 100644 (file)
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -318,16 +318,9 @@ case, and the process object in the asynchronous case."
            (status 0))
        (when files
          (setq squeezed (nconc squeezed files)))
-       (let ((exec-path (append vc-path exec-path))
-             ;; Add vc-path to PATH for the execution of this command.
-             ;; Also, since some functions need to parse the output
+       (let (;; Since some functions need to parse the output
              ;; from external commands, set LC_MESSAGES to C.
-             (process-environment
-              (cons (concat "PATH=" (getenv "PATH")
-                            path-separator
-                            (mapconcat 'identity vc-path path-separator))
-                    (cons "LC_MESSAGES=C"
-                          process-environment)))
+             (process-environment (cons "LC_MESSAGES=C" process-environment))
              (w32-quote-process-args t))
          (if (eq okstatus 'async)
              ;; Run asynchronously.